implicit none
integer, parameter:: ii=121
character(len=12), parameter:: hello_world='Hello World!'
contains
  subroutine print_hello_world()
  implicit none
  print "(A)",hello_world
  return
  endsubroutine print_hello_world
